home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / turbobasedemo / beispiele / makro / verzeichnis.rexx < prev   
OS/2 REXX Batch file  |  1996-09-29  |  681b  |  32 lines
  1. /*
  2.  *
  3.  * Beispiel-ARexx-Skript zu TurboBase   © Michael Friedrich
  4.  *
  5.  *
  6.  *
  7.  */
  8.  
  9. /* Failat auf 11 setzen, da TurboBase bei Klick auf <Abbruch> den
  10.    Wert 10 zurückliefert!
  11. */
  12. Options FailAt 11
  13. /* Dies wird benötigt, um das Ergebnis von EINGABE in RESULT zurück-
  14.    zuerhalten */
  15. Options Results
  16.  
  17. /* Wir wollen mit TurboBase kommunizieren */
  18. ADDRESS TBASE
  19.  
  20. CONTEXT.MACRO
  21.  
  22. 'EINGABE "Geben Sie bitte den Pfad ein, dessen Dateien Sie hinzufügen möchten" "Dateien automatisch hinzufügen"'
  23. if rc~=0 then exit
  24.  
  25. Pfad = RESULT
  26.  
  27. ADDRESS COMMAND 'LIST DIR "'Pfad'" LFORMAT="%N,%P,%L,%d" >ram:t/tmp_0'
  28.  
  29. 'IMPORT "Verzeichnislisten importieren" OPEN'
  30.  
  31. ADDRESS COMMAND 'DELETE QUIET ram:t/tmp_0'
  32.